100 ' programma 6    INGESCHREVEN VIERKANTEN 
110 CLEAR ,19202 : SCREEN 105,,3,3
120 DEF FNX(X)=INT(1.55*(50+X)+.5)
130 CLS: KEY OFF
140 INPUT "TOETS K IN   1<K<20  "; K
150 DIM X(5), Y(5), XX(5), YY(5)
160 X(1)=0  : X(2)=320: X(3)=320: X(4)=0  : X(5)=0
170 Y(1)=320: Y(2)=320: Y(3)=0  : Y(4)=0  : Y(5)=320
180 H=.5
190 CLS
200	 FOR N=1 TO 40
210		FOR J=1 TO 4
220			LINE (FNX(X(J)),Y(J))-(FNX(X(J+1)),Y(J+1)),1
230		NEXT J
240		FOR J=1 TO 4
250			XX(J)=X(J)+INT((X(J+1)-X(J))/K+H)
260 		YY(J)=Y(J)+INT((Y(J+1)-Y(J))/K+H)
270		NEXT J
280		FOR J=1 TO 4
290			X(J)=XX(J) : Y(J)=YY(J)
300		NEXT J
310		X(5)=X(1) : Y(5)=Y(1)
320 NEXT N	
330 A$=INKEY$: IF A$="" THEN 330
340 CLS: KEY ON: END

Dim K As Single = CType(Val(txtK.Text()), Single)
Dim X() As Single = {0, 0, 320, 320, 0, 0}
Dim Y() As Single = {0, 320, 320, 0, 0, 320}
Dim XX(5), YY(5) As Single
Dim H As Single = 0.5
For N As Single = 1 To 40
For J As Single = 1 To 4
		e.Graphics.DrawLine(Pens.Black, X(J), Y(J), X(J + 1), Y(J + 1))
	Next
	For J As Single = 1 To 4
		XX(J) = X(J) + Int((X(J + 1)  X(J)) / K + H)
		YY(J) = Y(J) + Int((Y(J + 1)  Y(J)) / K + H)
	Next
	For J As Single = 1 To 4
		X(J) = XX(J) : Y(J) = YY(J)
	Next
	X(5) = X(1) : Y(5) = Y(1) 
Next
